home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / needac1a / module1.bas next >
BASIC Source File  |  1999-09-25  |  139b  |  9 lines
  1. Attribute VB_Name = "Module1"
  2. Sub TimeOut(Duration)
  3. starttime = Timer
  4. Do While Timer - starttime < Duration
  5. DoEvents
  6. Loop
  7.  
  8. End Sub
  9.